00100	COMMENT ⊗   VALID 00002 PAGES
00200	C REC  PAGE   DESCRIPTION
00300	C00001 00001
00400	C00002 00002	C   SUBR5.F4
00500	C00005 ENDMK
00600	C⊗;
     

00100	C   SUBR5.F4
00200	C  THIS SUBR. ADJUSTS UNIFORM CUT-OFF TIME FOR RANDOM TIME VALUES.
00300	
00400		SUBROUTINE SUBR
00500		COMMON /INS/ INST(27),BG(60)
00600		COMMON P(30),INUM,IPAR,CNT(27),BT,PL(48),IREST,DF,DUR(27)
00700	C   INUM=INST#  IPAR=PARAM#  
00800	C   BT=BASIC TIME P1 WHEN SUBROUTINE IS CALLED
00900	C   IF IREST IS <0, THAT NOTE WILL BE A REST.  
01000	C   INST=INST. NAME,  BG=INSTS' BEGIN TIMES.
01100	C   NOTE #S IN SUBROUTINE: (1-84)  C4=37  FS4=43  C5=49  ETC.
01200	C   F1=86  F15=100 (NO F16!)
01300	
01400		IF(P(1)+P(2).GT.P(IPAR)-P(IPAR-1))P(2)=P(IPAR)-P(1)+.001
01500	C P(IPAR) WILL BE CUT-OFF TIME FOR RAND. SELECTION OF TIME VALUES.
01600	C P(IPAR-1) WILL BE THE LONGEST POSSIBLE NOTE DURATION IN RANDOM SECTION.
01700	C +.00001 IS FOR ROUND-OFF ERRORS.
01800		RETURN
01900		END
02000	
02100	C TYPICAL INPUT
02200	
02300	C TOOT 0 6 ALL;
02400	C P2 1 .05 .5;
02500	C P3 1 C3 C6;
02600	C P4 1 80 500;
02700	C P5 .5 "F1"  .5 "F2";
02800	C P6 F3; P7 F4; P8 F5; P9 F6;
02900	C P10 .5; < BIGGEST NUMBER IN P2 RAND.
03000	C P11 2 SUBN; <  CALL THE SUBROUTINE.  END RAND. AT 2".
03100	C END;
03200	C CLAR ; DUPL 1; END;
03300	C BRIT ; DUPL 1; END;
03400	C BUZZ ; DUPL 1; END;
03500	
03600	C TOOT 2; P2 .15; P5 F1; P4 500; P11 0; END; <NO SUBR. CALLS
03700	C CLAR 2; DUPL 1; END;
03800	C BRIT 2; DUPL 1; END;
03900	C BUZZ 2; DUPL 1; END;
04000	C TOOT 4; P2 1 .05 .5; P5 .5 "F1"  .5 "F1";
04100	C P4 1 80 500;
04200	C P11 5.5 SUBN; END;
04300	C CLAR 4; DUPL 1; END;
04400	C BRIT 4; DUPL 1; END;
04500	C BUZZ 4; DUPL 1; END;
04600	C TOOT 5.5; P2 .5; P4 500; P5 F1; P11 0;END;
04700	C CLAR 5.5; DUPL 1; END;
04800	C BRIT 5.5; DUPL 1; END;
04900	C BUZZ 5.5; DUPL 1; END;